home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / A-TEST.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  128b  |  11 lines
  1. screen 12
  2. while inkey$=""
  3.  x1=rnd*640
  4.  y1=rnd*480
  5.  x2=rnd*640
  6.  y2=rnd*480
  7.  c=rnd*15
  8.  line (x1,y1)-(x2,y2),c
  9. wend
  10. end
  11.